Friend Class Emulator_Args

    Private m_progress As Integer
    Private m_message As String
    Private m_type As String


    Friend Sub New(ByVal Progress_ As Integer, ByVal Message_ As String, ByVal Type_ As String)
        m_progress = Progress_
        m_message = Message_
        m_type = Type_
    End Sub

    Friend ReadOnly Property Message() As String
        Get
            Return m_message
        End Get
    End Property
    Friend ReadOnly Property Progress() As Integer
        Get
            If m_progress >= 100 Then
                Return 100
            ElseIf m_progress < 0 Then
                Return 0
            Else
                Return m_progress
            End If
        End Get
    End Property
    Friend ReadOnly Property Type() As String
        Get
            Return m_type
        End Get
    End Property
End Class
